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-- BcdTab.Mesa Edited by Sandman on May 12, 1978 8:48 AM 

DIRECTORY 

AUoDefs: FROM "altodefs" USING [CharsPerWord] , 

BcdDefs: FROM "bcddefs" USING [httype, PackedString, sstype], 

BcdTabDefs: FROM '^bcdtabdef s" USING [ 

HTIndex, HTNull , HTRecord, HVIndex, HVLength], 
InlineDefs: FROM "inlinedefs" USING [BITAND, BITXOR], 
StringDefs: FROM "stringdefs" USING [ 

AppendChar, AppendSubString, EqualSubStrings, EquivalentSubStrings, 

Substring, SubSt ringDes crip tor ] , 
TableDefs: FROM "tabledefs" USING [ 

AddNotify, Allocate, DropNotify, TableBase, Tablelndex, TableNotif ier, 

TrimTable]; 

DEFINITIONS FROM BcdTabDefs, BcdDefs; 

BcdTab; PROGRAM IMPORTS TableDefs, StringDefs EXPORTS BcdTabDefs 
SHARES BcdTabDefs - 
BEGIN 

Substring: TYPE » StringDefs .Substring; 

-- tables defining the current symbol table 

ht: DESCRIPTOR FOR ARRAY --HTIndex-- OF HTRecord; 

hashvec: DESCRIPTOR FOR ARRAY --HVIndex-- OF HTIndex; 

htb: TableDefs. TableBase; -- hash table 

ssb: POINTER TO BcdDefs .PackedString ; -- id string 

updatebases: TableDefs. TableNotif ier « 
BEGIN OPEN BcdDefs; 
htb ♦- base[httype]; 

ssb ^ LOOPHOLE[base[sstype], POINTER TO BcdDefs .PackedString] ; 
hashvec <- DESCRIPTOR[htb, LENGTH[hashvec]] ; 

ht *- DESCRIPTOR[htb+LENGTH[hashvec]*SIZE[HTIndex], LENGTH[ht]]; 
RETURN 
END; 

allocatehash: PROCEDURE RETURNS [hti: HTIndex] ■ 
BEGIN OPEN TableDefs, BcdDefs; 

next: Tablelndex ■ Al locate[httype, SIZE[HTRecord]]; 
hti <- LENGTH[ht]; 
IF hti*SIZECHTRecord]+LENGTH[hashvec] ff LOOPHOLE[next , INTEGER] THEN 

ERROR; 
ht ♦■ DESCRIPTOR[BASE[ht], LENGTH[ht] + l] ; 

ht[hti] <- HTRecord[link: HTNull. offset: ssb . string, length+1]; 
RETURN [hti-1] 
END; 

-- variables for building the symbol string 

ssw: TableDefs. Tablelndex; 

StringOverlay: TYPE = MACHINE DEPENDENT RECORD [ 

length, maxlength: CARDINAL]; 
StringPointer : TYPE = POINTER TO StringOverlay; 
StringHeaderSize: CARDINAL = SIZE[StringOverl ay]; 

tableopen: BOOLEAN ♦- FALSE; 

BcdTablnit: PUBLIC PROCEDURE - 
BEGIN OPEN TableDefs; 
IF tableopen THEN BcdTabErase[]; 
hashvec <- DESCRIPTOR[NIL, HVLength]; 
TableDefs . AddNotify[updatebases]; 
BcdTabReset[]; 
tableopen ♦- TRUE; 
RETURN 
END; 

BcdTabErase: PUBLIC PROCEDURE - 
BEGIN 

tableopen *- FALSE; 
TableDefs .DropNotify[updat8bases] ; 
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RETURN 
END; 

BcdTabReset: PUBLIC PROCEDURE ■ 
BEGIN OPEN BcdDefs; 
it HVIndex; 

nullss: StringDefs.SubStringDescriptor ♦- [base:, offset:, length:0]; 
TableDefs.TrimTable[sstype, 0]; 
TableDefs.TrimTable[httype, 0]; 

[] <r TableDefs.Anocate[httype, HVLength*SIZE[HTIndex]]; 
hashvec <- DESCRIPTOR[htb, HVLength]; 
FOR i IN HVIndex DO hashvec[i] ^ HTNull ENDLOOP; 
ht ^ DESCRIPTOR[htb+LENGTH[hashvec]*SIZE[HTIndex], 0]; 
ssw ♦■ TableDef s. Anocate[sstype, StringHeaderSize] + StringHeaderSize; 
ssb. string *■ [length: 0, maxlength: 0, text:]; 
ri ^ sllocstshsshrT* 

IF EnterString[@nunss] ff HTNull THEN ERROR; 
RETURN 
END; 

-- hash entry creation 

EnterString: PUBLIC PROCEDURE [s: Substring] RETURNS [hti: HTIndex] - 
BEGIN OPEN StringDefs, BcdDefs; 
hvi: HVIndex; 

desc: SubStringDescriptor ^ [base:@ssb. string , offset:, length:]; 
CharsPerWord: CARDINAL « Al toDef s .CharsPerWord; 
offset, length, nw: CARDINAL; 
ssi: TableDefs.Tablelndex; 
hvi <- hashvalue[s] ; 

FOR hti ^ hashvec[hvi], ht[hti].link UNTIL hti = HTNull 
DO 

desc. offset ♦■ ht[hti]. offset; 
desc. length <- ssb. size[ht[hti] .of fset]; 
IF EqualSubStrings[s, (§desc] THEN RETURN [hti]; 
ENDLOOP; 
offset ♦- ssb. string, length; length ♦- s. length + 1; 

nw <- LOOPHOLE[offset+length+(CharsPerWord-l) - ssb .string. maxlength. CARDINAL]/CharsPerWord; 
IF nw # 
THEN 

BEGIN ssi <- TableDef s.Allocate[sstype, nw]; 
IF ssi # ssw THEN ERROR; 
ssw *- ssw + nw; 

LOOPHOLE[ssb, StringPointer] .maxlength <- LOOPHOLE[ssb, StringPointer] .maxlength + nw*CharsPerWo 
**rd; 

END; 
AppendChar[@ssb. string, LOOPHOLE[s. length, CHARACTER]]; 
AppendSubString[@ssb . string, s]; 
hti <- allocatehash[]; 

ht[hti].link <- hashvec[hvi] ; hashvec[hvi] <- hti; 
RETURN 
END; 

-- the following copied from symbol table. mesa 

ignorecases: BOOLEAN <- FALSE; 

hashvalue: PROCEDURE [s: Substring] RETURNS [HVIndex] « 
BEGIN -- computes the hash index for string s 
CharMask: PROCEDURE [CHARACTER, WORD] RETURNS [CARDINAL] » 

LOOPflOLE[InlineDefs.BITAND]: 
mask: WORD « 137B; -- masks out ASCII case shifts 

n: CARDINAL « s. length; 
b: STRING - s.base; 
v: WORD; 

V <- CharMask[b[s. offset], mask]*177B + CharMask[b[s .of f set+(n-l)], mask]; 
RETURN [InlineDefs.BITXOR[v, n*17B] MOD LENGTH[hashvec]] 
END; 

FindString: PUBLIC PROCEDURE [s: Substring] RETURNS [found: BOOLEAN, hti: HTIndex] - 
BEGIN 

OPEN StringDefs; 
desc: SubStringDescriptor; 
ss: Substring - ©desc; 
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hti <- hashvec[hashvalue[s]] ; 
WHILE hti i^ HTNun 

DO 

SubStringForHash[ss, hti]; 

found ♦- 

IF ignorecases THEN Equival8ntSubStrings[s.ss] 
ELSE EqualSubStrings[s,ss]; 

IF found THEN RETURN; 

hti ^ ht[hti].link; 

ENDLOOP; 
RETURN [FALSE, HTNull] 
END; 

FindEquivalentString; PUBLIC PROCEDURE [s: Substring] RETURNS [found: BOOLEAN, hti: HTIndex] 
BEGIN 

oldcase: BOOLEAN ■ ignorecases; 
ignorecases ^ TRUE; 
[found, hti] <- FindString[s]; 
ignorecases ^ oldcase; 
RETURN 
END; 

SubStringForHash: PUBLIC PROCEDURE [s: Substring, hti: HTIndex] ■ 
BEGIN -- gets string for hash table entry 
s.base ^ 0ssb«string; 
IF hti « HTNull 

THEN s. offset ^ s. length *- 
ELSE 
BEGIN 

s. offset ^ ht[hti]. offset; 
s. length ♦- ssb. size[ht[hti] .of f set] ; 
END; 
RETURN 
END; 

END. 



